#!/usr/bin/perl -w
use Modern::Perl;
use List::Util;

#Leemos las lineas del fichero
my @filelines = <> or die "Se esperaba el nombre de un fichero";
#Separamos los nombres y las notas en un hash
my %hash = map { /(.*)\s+\&\s+(\d+'\d*).*/ } @filelines;
#Modificamos las notas para su interpolacion numerica
$hash{$_} =~ s/'/./ for (keys %hash);
#Ordenamos segun las claves (notas) del hash
@filelines = sort { $hash{$b} <=> $hash{$a} } keys %hash;
#Imprimimos las lineas
print "$_ => $hash{$_}\n" foreach(@filelines);
